100 IFHTHENPOKE45,L:POKE46,H:GOTO160
110 IFPEEK(50000)=56ANDPEEK(50001)=253THEN160
120 L=PEEK(45):H=PEEK(46)
140 LOAD"SCROLL-MACHINE",8,1
150 :
160 PRINT"[147]":SYS49152
170 IFUSR(20000)<>229THEN:_LD"PSEUDO I"
180 IFUSR(53248)<>4THEN:_LD"ZEICHENSATZ",53246
185 IFUSR(57369)<>170THEN:_LD"SPRITES",57342
200 :
210 :
220 :
230 _RS:REM EINSTELLUNGEN LOESCHEN
240 GOSUB1080:REM JOYSTICKSTEUERUNG
245 _RZ81,88,248:_SU5
250 :
260 REM NEUE ADRESSE DER SPRITE POINTERS
270 SP=53240
280 :
290 JS=56320:REM PORT 2
300 :
310 REM SPRITES VORBEREITEN
320 V=53248:POKEV,172:POKEV+1,150
330 POKEV+2,173:POKEV+3,161
340 POKEV+28,3:POKEV+39,14:POKEV+38,6:POKEV+37,1
350 POKEV+40,8
360 POKEV+23,0:POKEV+29,0
370 CO=V+31:REM SPRITE COLLISSION
380 S=128:REM SPRITES AB 128 = 57344
390 SH=3:REM ANZAHL DER SCHIFFE
400 E=200:REM ANFANGSENERGIE
410 :
420 REM SOFT-SCROLL-EINSTELLUNGEN
430 :
440 REM ANFANGSADRESSE,XAUSD.,YAUSD.
450 _MT20000,160,70
460 REM GRENZEN FESTLEGEN
470 _GM1:_GR0,8*160,0,8*50
480 REM REGISTER2:NORM,NORM,MULTICOL.
490 _2R200,200,208
500 _HF0,10,0:REM HINTERGRUNDFARBE
510 POKE53282,7:POKE53283,8:_ZF10
520 _US1:REM SOFT-SCROLL EIN
530 _PO50,0:REM POSITION AUF 50,0
540 _RF6,6,6:REM RANDFARBE
560 REM COLLISSION REGISTER LOESCHEN
570 POKECO,0
580 POKESP,S:REM SPRITE AENDERN
590 S=S+1:IFS>132THENS=128
600 REM RANDBERUEHRUNG
610 IFUSR(0)THEN:_JS2
620 E=E-1:GOSUB680
630 IFE=0THEN720
640 F=F+1AND1:POKEV+21,1
650 IF(PEEK(CO)AND1)THEN930
660 IF(PEEK(JS)AND1)=0THENPOKESP+1,144+F:POKEV+21,3
670 GOTO580
680 PRINT" SCHIFFE:"SH"[157]  ENERGIE: "E"[157]  "
690 RETURN
700 :
710 REM VERLUST EINES SCHIFFES
720 I=0:E=200:X=-8:POKEV+21,1
730 SH=SH-1
740 GOSUB680
750 REM ZERFALL
760 FORI=1TO10:POKE53280,1:NEXT
770 FORI=132TOI+11
780 POKESP,I
790 FORT=1TO20:NEXT
800 NEXT
810 _PO50,0
820 _JS2:REM TRAEGHEIT LOESCHEN
830 IFSH=0THEN860
840 GOTO500
850 :
860 POKEV+21,0:POKE214,12:PRINT
870 _US0:REM SOFT SCROLL AUS
880 PRINTTAB(13)"GAME OVER !!!"
890 WAIT197,63:POKE198,0
900 _US0:RUN
910 :
920 REM LANDEN
930 IFUSR(2)>330ANDUSR(2)<334ANDUSR(1)>441ANDUSR(1)<469THEN950
940 GOTO720:REM KEINE LANDUNG
950 PRINT" GELANDET !"
960 E=200:GOSUB680
970 REM STOPPEN UND JOYSTICK AUS
980 _BW0,0:_JS0
990 REM SETZEN AUF Y = 179
1000 _POUSR(1),330
1010 REM JOYSTICK OBEN GEDRUECKT
1020 IF(PEEK(JS)AND1)THEN1000
1030 :
1040 _BWBX,BY
1050 _JS2:GOSUB 1070:GOTO570
1060 REM 3 ZEILEN LOESCHEN
1070 _FU 1024,1063+3*40,32:RETURN
1080 PRINT
1090 INPUT"[147]BEWEGUNG (-127 BIS 128) X,Y0,1[157][157][157][157][157]";BX,BY
1100 _BW BX,BY
1110 PRINT"JOYSTICKSTEUERUNG :
1120 [133]"NORMALE STEUERUNG:0,0CMDCMDCMDCMDCMD";X,Y
1130 _JS 2,X,Y:[143] 2 = TRAEGHEITSMODE
1140 [153]"TRAEGHEITSSTEUERUNG:
1150 INPUT"BESCHLEUNIGUNG: (0-255) X,Y16,16[157][157][157][157][157][157][157]";X,Y
1160 _TB X,Y
1170 INPUT"GRENZGESCHW.: (0-32767) X,Y5000,5000[157][157][157][157][157][157][157][157][157][157][157]";X,Y
1180 _TG X,Y
1190 INPUT"REIBUNG (0-255) X,Y4,4[157][157][157][157][157]";X,Y
1200 _TR X,Y
1210 PRINT"[147]":RETURN